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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


& ® 
a oa 
* * 
a w 
e ® 
* THIS fe aces IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gore * 
* ONLY ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
* INCLU Ton OF THE ABOVE gethod NOTICE, THIS SOFTWARE OR ANY OTHER * 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; CORPORATION. . 

7 
* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
* * 
-* * 
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; FACILITY: Files-11 Structure Level 2 
; ABSTRACT: 


This routine performs the general embedded wild card matching 
algorithm. 


; ENVIRONMENT: 
VAX/VMS Operating System 


; AUTHOR: Andrew C. Goldstein, CREATION DATE: 10-Aug-1979 11:36 
; MODIFIED BY: 


v02-001 MLJ0031 Martin L. Jack, 4-Aug-1981 6:32 
Reorganize for simplicity and Speed. 
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-SBTTL FMGSMATCH_NAME, general wild card matching 


ca 
> 


Funct tenet Description: 
This routine performs the general embedded wild card matching 
algorithm, 


; Cott tng Zequences 


= Length of candidate string. 


; Input ne" s"Cength 
= Address of candidate string. 


" 


RG = Length of pattern string. 
RS = Address of pattern str ine. 


Implicit Inputs: 
none 


SSO Oo 


~~ oa Stes cs 
OWONOA NEW O OOO WI Doo AU OOO HUE UNIO Doe En WRI OOONA WUE Ww 


Output Parameters: | 

none | 

Implicit Outputs: | 
none 


Routines Called: 

none 
Routine Value: 

True if the strings match. 
Signals: 

none 


| 
Side ha 
R1-R5 destroyed. 
| 
} 
| 
| 


-PSECT SCODES,NOWRT,EXE,WORD 
FMGSMATCH NAME: : 
PUSHR 


9 
G 
9 
3 
03CO 8F 6B 3 0s #*°M<R6,R7,RB,RI> ; Save registers 
0 04 CLRL RO 3; Assume failure 
6 D4 9 CLRL R6 3; Clear saved candidate count 
1 3; Main scanning Loop. 
4 07 102 10s: DECL R4 ; Pattern exhausted? 
4 19 1 BLSS 4 ; Branch if yes 
51 5 9A 1 MOVZBL (R5)+,R1 ; Get next character in pattern 
r) a} 1 CMPB ORT, #*A'®* : Pattern specifies wild string? 
: 1 1 BEaL §«=s«6 0 : Branch if yes 
0 1 DECL 3; Cand date exhausted? 
1F O19 1 BLSS 50$ ; Branch if yes . 
cs HH Wt 1 CMPB R1,(R3)+ ; Compare pattern to candidate 


Ooooo°oo 


vw 
oo 
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eral 
NAME 


Macro v04-00 Page ; | 
general wild card matchi RC JMATCHNAME .MAR; 1 (2). 
BEQL 10$ t 
CMPB R1,#*A'SR' f 
BEQL «~=s«108 
; We have detected a mismatch, or we are out of pattern while there is 


; candidate left. Back up to the last ‘'*', advance a candidate character, 
; and try again. 


ern equals candidate 
ies wild character? 


Branch 
Pattern 
Branch if yes 


111 
ild Card Specification uF ot dt 4 9 g206:13 ate 
SEP=1984 01:14:02 (CF11X.S 
if pa 
spec 


86 ; Count a saved candidate character 
50$ ; Branch if no saved candidate 
INCL R?7 ; Set to try next character 
MOvVa RG «Re ; Restore descriptors to backup point 
MOVa RB,R4 $ 
BRB 10$ ; Continue testing 
; Here when pattern is exhausted. 


Candidate exhausted? 
if no 


TSTL R 
BNEQ RSs Branch n 


: Here to return. 

dos: MOVL #1,R0 ; Set success return 

50$: POPR #*M<R6,R7,RB,RI> ; Restore registers 
RSB ; Return 


; We have detected a '*' in the pattern. Save the pointers for backtracking. 


R4 ; Pattern null after ‘*'? 

40$ ; Branch if yes 
MOVa R2,R6 ; Save descriptors of both strings 
MOVa = R4 RB : 
BRB 10$ ; Continue testing 
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01 


See eee eet Bee eee & 


Allocation PSECT No. Attributes 
00000000 g-} 99 ( 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
00000048 (¢ 72.) 1¢ 1.) \NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC WORD 
Ae rrr + 
! Performance indicators ; 
fer ee teen sonnet eo ee Se Mw eS 
Page faults CPU Time Elapsed Time 


Initialization 0 00:00:00.08 00:00:00.33 
Sy planer, aa i em ih at 
— table sort . ie 0.00 90:00:00.0 
ass :00:00. :00:01. 
Symbol table output :00:00.0 0:0 :00.0 
Psect eynenets euteut 0 if 0:03 60; 0:00:09 
Cross-reference output 88: 88:3 99 00:00:00.0 
Assembler run totals 290 00:00:01.9 00:00:06.72 


ing working set Limit was 750 pages. 

5 bytes (6 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 16 non-local and 6 local symbois. 
45 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

pages of virtual memory were used to define 2 macros. 
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! Macro Library statistics ! 


Geese rene nr som en cence eer ene eat 


Macro Library name Macros defined 


“Feee pase Fev TIS TARCET ALB:2 6 
TorAs (all Libraries) 


0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 
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